https://www.rstudio.com/resources/cheatsheets/
require(ggplot2)
require(plotly)
require(dplyr)
diamonds %>%
ggplot(aes(x=depth, fill=cut)) +
geom_histogram(binwidth = .2) +
xlim(55,70) +
facet_wrap(~cut)
## Warning: Removed 45 rows containing non-finite values (stat_bin).
## Warning: Removed 10 rows containing missing values (geom_bar).
interactive_plot <- pokemons %>%
ggplot(aes(x=type, fill=factor(type))) +
geom_bar() +
coord_flip() +
theme_minimal()
ggplotly(interactive_plot)
pokemons %>%
ggplot(aes(x=type, fill=factor(type))) +
geom_bar(alpha=.5) +
geom_point(mapping = aes(y = hp)) +
coord_flip()